home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / fp11s.zip / RUNFD.BAT < prev   
DOS Batch File  |  1992-02-01  |  1KB  |  53 lines

  1. @ECHO OFF
  2. :LOOP
  3. CLS
  4. M:
  5. cd\pcb\front
  6. fd 
  7.    if errorlevel 103 goto board
  8.    if errorlevel 102 goto board
  9.    if errorlevel 101 goto board
  10.  
  11.    rem ************* IMPORT MAIL
  12.    if errorlevel 70 goto mail_in
  13.  
  14.    rem ************* EXPORT MAIL
  15.    if errorlevel 60 goto mail_out
  16.  
  17.    rem ************* EXIT TO DOS
  18.    if errorlevel 10 goto end
  19. goto error
  20.  
  21. rem ********************************************************
  22. rem Human caller; pass to PCBoard
  23. :board
  24.    dobbs
  25.  
  26. rem ********************************************************
  27. rem Start event at hh:mm; prepare mail 
  28. rem PCBoard event (AdriaNet transfer, file list, statistics)
  29. :mail_out
  30.    cd fidopcb
  31.    fidopcb toss strip
  32.    rem Save statistics for this event
  33.    type ficopcb.sta >> all_stat
  34.    cd..
  35.    f:\fdevent.bat
  36.    goto loop
  37.  
  38. rem ********************************************************
  39. rem Mail received from Fidonet; convert to PCBoard
  40. :mail_in
  41.    cd fidopcb
  42.    fidopcb toss
  43.    rem Save statistics for this event
  44.    type fidopcb.sta >> all_stat
  45.    goto loop
  46.  
  47. rem ********************************************************
  48. rem Error has occured in FrontDoor
  49. :error
  50.    ECHO ERROR !!!!! >errors!.log
  51.    boot
  52. :end
  53.     ECHO The BBS is Down !!!